home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Utilities Professional 1-1500
/
Utilities Professional 1-1500 (1994)(WPD)[!].iso
/
12511500
/
var1273.dms
/
var1273.adf
/
AmiCDROM
/
main.c
< prev
next >
Wrap
C/C++ Source or Header
|
1992-09-02
|
27KB
|
950 lines
/* main.c:
*
* Interactive test program for the ISO- and Rock-Ridge-support
* routines.
*
* ----------------------------------------------------------------------
* This code is (C) Copyright 1993 by Frank Munkert.
* All rights reserved.
* This software may be freely distributed and redistributed for
* non-commercial purposes, provided this notice is included.
* ----------------------------------------------------------------------
* History:
*
* 28-Nov-93 fmu Improved "cdrom d" command.
* 12-Oct-93 fmu "Show path table" function removed.
* 09-Oct-93 fmu Open utility.library.
*/
#include <stdlib.h>
#include <stdio.h>
#include <string.h>
#include <dos/var.h>
#include <clib/dos_protos.h>
#include <clib/exec_protos.h>
#include "cdrom.h"
#include "iso9660.h"
#include "rock.h"
#include "hfs.h"
#ifdef AZTEC_C
#include <pragmas/dos_lib.h>
#include <pragmas/exec_lib.h>
#endif
#ifdef LATTICE
#include <pragmas/dos_pragmas.h>
#include <pragmas/exec_pragmas.h>
#endif
#if defined(_DCC) && defined(REGISTERED)
#include <pragmas/dos_pragmas.h>
#include <pragmas/exec_pragmas.h>
extern struct Library *SysBase, *DOSBase;
#endif
#define STD_BUFFERS 10
#define FILE_BUFFERS 5
#ifdef DEBUG_SECTORS
void dbprintf (char *p_dummy, ...)
{
}
#endif
CDROM *cd = NULL;
char g_the_device[80];
int g_the_unit;
int g_trackdisk = 0;
int g_fastmem = 0;
struct Library *UtilityBase;
void Cleanup (void)
{
if (cd)
Cleanup_CDROM (cd);
if (UtilityBase)
CloseLibrary (UtilityBase);
}
void Usage (void)
{
fprintf (stderr,
"Usage: cdrom command [parameters]\n"
"Commands:\n"
" a Show information on CDROM drive\n"
" b Read table of contents\n"
" c name Show contents of file 'name'\n"
" d[rl] dir Show contents of directory 'dir' (use ISO names)\n"
" r=also show subdirectories, l=show additional information\n"
" e[rl] dir Show contents of directory 'dir' (use Rock Ridge names)\n"
" r=also show subdirectories, l=show additional information\n"
" f dir name Change to directory 'dir' and try to find object 'name'\n"
" i Check which protocol is used\n"
" j [01] 0=start audio, 1=stop motor\n"
" m num Read catalog node 'num' (MacHFS only)\n"
" o name Try to open object 'name'\n"
" r Read contents of root directory\n"
" s num [cnt] Read 'cnt' sectors, starting at sector 'num'\n"
" t name Try to open parent of object 'name'\n"
" v Read primary volume descriptor\n"
" x [01] Select mode: 0=normal, 1=XA (for Toshiba 3401)\n"
" z Send test unit ready command\n"
"Use \":\" as the name of the root directory\n"
);
exit (1);
}
char *MKSTR (char *p_in, int p_length, char *p_out)
{
char *res = p_out;
int len = p_length;
int i;
while (len && p_in[len-1] == ' ')
len--;
for (i=0; i<len; i++)
*p_out++ = *p_in++;
*p_out = 0;
return res;
}
void Show_Flags (unsigned char p_flags)
{
if (p_flags & 1)
printf ("existence ");
if (p_flags & 2)
printf ("directory ");
if (p_flags & 4)
printf ("associated ");
if (p_flags & 8)
printf ("record ");
if (p_flags & 16)
printf ("protection ");
if (p_flags & 128)
printf ("multi-extent ");
}
void Show_Directory_Record (directory_record *p_dir)
{
char buf[256];
printf ("Extended Attr Record Length: %d\n", (int) p_dir->ext_attr_length);
printf ("Location of Extent: %lu\n", p_dir->extent_loc_m);
printf ("Data Length: %lu\n", p_dir->data_length_m);
printf ("Recording Date and Time: %02d.%02d.19%02d %02d:%02d:%02d %+d\n",
(int) p_dir->day, (int) p_dir->month, (int) p_dir->year,
(int) p_dir->hour, (int) p_dir->minute, (int) p_dir->second,
(int) p_dir->tz);
printf ("Flags: %d (", (int) p_dir->flags);
Show_Flags (p_dir->flags);
printf (")\n");
printf ("File Unit Size: %d\n", (int) p_dir->file_unit_size);
printf ("Gap Size: %d\n", (int) p_dir->gap_size);
printf ("Volume Sequence Number: %hu\n", p_dir->sequence_m);
printf ("File Identifier: ");
if (p_dir->file_id[0] == 0)
printf ("(00)\n");
else if (p_dir->file_id[0] == 1)
printf ("(01)\n");
else
printf ("%s\n", MKSTR (p_dir->file_id, p_dir->file_id_length, buf));
}
void Find_Block_Starting_With (CDROM *p_cd, int p_val)
{
unsigned long sec = 0;
int cmp;
int i;
for (;;) {
if (!Read_Sector (p_cd, sec)) {
fprintf (stderr, "cannot read sector 16\n");
exit (1);
}
for (i=0; i<4; i++) {
cmp = p_cd->buffer[i<<9] * 256 + p_cd->buffer[(i<<9)+1];
if (cmp == p_val)
printf ("sector %lu, block %d\n", sec, i);
}
sec++;
}
}
void Show_Primary_Volume_Descriptor (CDROM *p_cd)
{
prim_vol_desc *pvd;
char buf[129];
int blk;
t_mdb mdb;
t_hdr_node hdr;
int skip;
int protocol;
t_bool hfs;
hfs = Uses_HFS_Protocol (p_cd, &skip);
protocol = Which_Protocol (p_cd, TRUE, &skip);
if (protocol == PRO_UNKNOWN) {
printf ("Unknown protocol");
return;
}
if (protocol == PRO_HIGH_SIERRA) {
printf ("High sierra protocol (not supported)\n");
}
if ((protocol == PRO_ROCK || protocol == PRO_ISO) && hfs)
printf ("Multi-platform disk: HFS & ISO\n");
if (protocol == PRO_ROCK)
printf ("Rock Ridge extensions available\n");
if (protocol == PRO_ISO || protocol == PRO_ROCK) {
if (!Read_Sector (p_cd, 16)) {
fprintf (stderr, "cannot read sector 16\n");
exit (1);
}
pvd = (prim_vol_desc *) p_cd->buffer;
printf ("--- ISO-9600: ---\n");
printf ("Volume Descriptor Type: %d\n", (int) pvd->type);
printf ("Standard Identifier: %s\n", pvd->id);
printf ("Volume Descriptor Version: %d\n", (int) pvd->version);
printf ("System Identifier: %s\n", MKSTR (pvd->system_id,32,buf));
printf ("Volume Identifier: %s\n", MKSTR (pvd->volume_id,32,buf));
printf ("Volume Space Size: %lu\n", pvd->space_size_m);
printf ("Volume Set Size: %hu\n", pvd->set_size_m);
printf ("Volume Sequence Number: %hu\n", pvd->sequence_m);
printf ("Logical Block Size: %hu\n", pvd->block_size_m);
printf ("Path Table Size: %lu\n", pvd->path_size_m);
printf ("Location of Occ of M Path Table: %lu\n", pvd->m_table);
printf ("Location of Occ of Opt M Path T: %lu\n", pvd->opt_m_table);
printf ("Volume Set Identifier: %s\n",
MKSTR (pvd->volume_set_id,128,buf));
printf ("Publisher Identifier: %s\n",
MKSTR (pvd->publisher_id,128,buf));
printf ("Data Preparer Identifier: %s\n",
MKSTR (pvd->data_preparer,128,buf));
printf ("Application Identifier: %s\n",
MKSTR (pvd->application_id,128,buf));
printf ("Copyright File Identifier: %s\n",
MKSTR (pvd->copyright,37,buf));
printf ("Abstract File Identifier: %s\n",
MKSTR (pvd->abstract_file_id,37,buf));
printf ("Bibliographic File Identifier: %s\n",
MKSTR (pvd->bibliographic_id,37,buf));
printf ("File Structure Version: %d\n",
(int) pvd->file_structure_version);
printf ("ROOT DIRECTORY RECORD:\n");
Show_Directory_Record (&pvd->root);
}
if (hfs) {
if ((blk = HFS_Find_Master_Directory_Block (p_cd, &mdb)) < 0) {
printf ("No master directory block found\n");
exit (1);
}
printf ("--- MacHFS: ---\n");
printf ("Master directory block located at block %d\n", blk);
printf ("Volume signature: 0x%hx\n", mdb.SigWord);
printf ("Date/Time of creation: %lu\n", mdb.CrDate);
printf ("Date/Time of last modification: %lu\n", mdb.LsMod);
printf ("Volume attributes: 0x%hx\n", mdb.Atrb);
printf ("Number of files in root dir: %u\n", mdb.NmFls);
printf ("Allocation block size: %lu bytes\n", mdb.AlBlkSiz);
printf ("Loc of first allocation block: %u\n", mdb.AlBlSt);
printf ("Volume name: %s\n",
MKSTR ((char *) mdb.VolName, mdb.VolNameLen,buf));
printf ("Number of files in volume: %lu\n", mdb.FilCnt);
printf ("Number of dirs in volume: %lu\n", mdb.DirCnt);
printf ("Size of catalog file: %lu allocation blocks\n",
mdb.CTFlSize);
printf ("Extent record for catalog file:\n");
printf (" 1. allocation block: %10lu length: %10lu\n",
mdb.CTExtRec[0].StABN, mdb.CTExtRec[0].NumABlks);
printf (" 2. allocation block: %10lu length: %10lu\n",
mdb.CTExtRec[1].StABN, mdb.CTExtRec[1].NumABlks);
printf (" 3. allocation block: %10lu length: %10lu\n",
mdb.CTExtRec[2].StABN, mdb.CTExtRec[2].NumABlks);
if (!HFS_Get_Header_Node (p_cd, blk, &mdb, &hdr))
printf ("*** Cannot read header node!!!\n");
printf ("Header node:\n");
printf ("Depth of tree: %u\n", hdr.Depth);
printf ("Number of root node: %lu\n", hdr.Root);
printf ("Number of leaf records in tree: %lu\n", hdr.NRecs);
printf ("Number of first leaf node: %lu\n", hdr.FNode);
printf ("Number of last leaf node: %lu\n", hdr.LNode);
}
}
void Show_Directory (CDROM *p_cd, unsigned long p_location, unsigned long p_length)
{
int cnt = 0;
int pos = 0;
if (!Read_Sector (p_cd, p_location)) {
fprintf (stderr, "cannot read sector %lu\n", p_location);
exit (1);
}
while (cnt < p_length) {
directory_record *dir = (directory_record *) (p_cd->buffer + pos);
if (dir->length == 0)
break;
Show_Directory_Record (dir);
cnt += dir->length;
pos += dir->length;
if (cnt < p_length) {
printf ("------------------------------------------------------------\n");
if (pos >= 2048) {
if (!Read_Sector (p_cd, ++p_location)) {
fprintf (stderr, "cannot read sector %lu\n", p_location);
exit (1);
}
pos = 0;
}
}
}
}
void Show_Root_Directory (CDROM *p_cd)
{
prim_vol_desc *pvd;
if (!Read_Sector (p_cd, 16)) {
fprintf (stderr, "cannot read sector 16\n");
exit (1);
}
pvd = (prim_vol_desc *) p_cd->buffer;
Show_Directory (p_cd, pvd->root.extent_loc_m, pvd->root.data_length_m);
}
void Check_Protocol (CDROM *p_cd)
{
int skip;
switch (Which_Protocol (p_cd, TRUE, &skip)) {
case PRO_ROCK:
printf ("Rock Ridge protocol, skip length = %d\n", skip);
break;
case PRO_ISO:
printf ("ISO-9660 protocol\n");
break;
case PRO_HFS:
printf ("Macintosh HFS protocol\n");
break;
case PRO_HIGH_SIERRA:
printf ("High Sierra protocol\n");
break;
default:
printf ("Unknown protocol, iso_errno = %d\n", iso_errno);
break;
}
}
void Try_To_Open (CDROM *p_cd, char *p_directory, char *p_name)
{
VOLUME *vol;
CDROM_OBJ *top = NULL;
CDROM_OBJ *home;
CDROM_OBJ *obj;
CDROM_OBJ *parent;
if (!(vol = Open_Volume (p_cd, 1))) {
fprintf (stderr, "cannot open volume; iso_errno = %d\n", iso_errno);
exit (1);
}
if (p_directory && p_directory != (char *) -1) {
if (!(top = Open_Top_Level_Directory (vol))) {
fprintf (stderr, "cannot open top level directory\n");
Close_Volume (vol);
exit (1);
}
if (!(home = Open_Object (top, p_directory))) {
fprintf (stderr, "cannot open top level directory\n");
Close_Object (top);
Close_Volume (vol);
exit (1);
}
} else {
if (!(home = Open_Top_Level_Directory (vol))) {
fprintf (stderr, "cannot open home directory;"
" iso_errno = %d\n", iso_errno);
Close_Volume (vol);
exit (1);
}
}
if (obj = Open_Object (home, p_name)) {
CDROM_INFO info;
printf ("%s '%s' found, location = %lu\n",
obj->directory_f ? "Directory" : "File",
p_name, Location (obj));
if (CDROM_Info (obj, &info)) {
printf ("INFO Name = ");
fwrite (info.name, info.name_length, 1, stdout);
printf ("\n");
} else
printf ("CANNOT FIND INFO FOR OBJECT!\n");
if (p_directory == (char *) -1) {
parent = Find_Parent (obj);
if (parent) {
printf ("parent found, location = %lu\n",
Location (parent));
Close_Object (parent);
} else
printf ("parent not found, iso_errno = %d\n", iso_errno);
}
Close_Object (obj);
} else {
if (iso_errno == ISOERR_NOT_FOUND)
printf ("Object '%s' not found\n", p_name);
else
printf ("Object '%s': iso_errno = %d\n", p_name, iso_errno);
}
if (top)
Close_Object (top);
Close_Object (home);
Close_Volume (vol);
}
void Show_File_Contents (CDROM *p_cd, char *p_name)
{
VOLUME *vol;
CDROM_OBJ *home;
CDROM_OBJ *obj;
#define THEBUFSIZE 99
char buffer[THEBUFSIZE];
int cnt;
if (!(vol = Open_Volume (p_cd, 1))) {
fprintf (stderr, "cannot open volume; iso_errno = %d\n", iso_errno);
exit (1);
}
if (!(home = Open_Top_Level_Directory (vol))) {
fprintf (stderr, "cannot open top level directory;"
" iso_errno = %d\n", iso_errno);
Close_Volume (vol);
exit (1);
}
if (obj = Open_Object (home, p_name)) {
for (;;) {
cnt = Read_From_File (obj, buffer, THEBUFSIZE);
if (cnt == -1) {
fprintf (stderr, "cannot read from file!\n");
break;
}
if (cnt == 0)
break;
fwrite (buffer, cnt, 1, stdout);
}
Close_Object (obj);
} else {
fprintf (stderr, "Object '%s': iso_errno = %d\n", p_name, iso_errno);
}
Close_Object (home);
Close_Volume (vol);
}
void Print_System_Use_Fields (CDROM *p_cd, directory_record *p_dir,
int p_skip_size)
{
int system_use_pos;
int slen;
unsigned long length = p_dir->length;
unsigned char *buf = (unsigned char *) p_dir;
printf (" system use fields: ");
system_use_pos = 33 + p_dir->file_id_length;
if (system_use_pos & 1)
system_use_pos++;
system_use_pos += p_skip_size;
/* the system use field must be at least 4 bytes long */
while (system_use_pos + 3 < length) {
slen = buf[system_use_pos+2];
/* look for continuation area: */
if (buf[system_use_pos] == 'C' &&
buf[system_use_pos+1] == 'E') {
unsigned long newloc, offset;
printf ("/ ");
memcpy (&newloc, buf + system_use_pos + 8, 4);
memcpy (&offset, buf + system_use_pos + 16, 4);
memcpy (&length, buf + system_use_pos + 24, 4);
if (!Read_Sector (p_cd, newloc))
return;
buf = p_cd->buffer;
system_use_pos = offset;
continue;
/* look for system use field terminator: */
} else if (buf[system_use_pos] == 'S' &&
buf[system_use_pos+1] == 'T')
return;
else {
putchar (buf[system_use_pos]);
putchar (buf[system_use_pos+1]);
putchar (' ');
}
system_use_pos += slen;
}
putchar ('\n');
}
void Show_Subdirectory (CDROM_OBJ *p_home, char *p_name, int p_long_info,
int p_recursive)
{
CDROM_OBJ *obj;
CDROM_INFO info;
VOLUME *vol = p_home->volume;
if (obj = Open_Object (p_home, p_name)) {
unsigned long offset = 0;
while (Examine_Next (obj, &info, &offset)) {
directory_record *dir = info.suppl_info;
fwrite (info.name, info.name_length, 1, stdout);
if (info.directory_f)
printf (" (dir)");
printf ("\n");
if (p_long_info && dir) {
printf (" %02d.%02d.%02d %02d:%02d:%02d ",
(int) dir->day,
(int) dir->month,
(int) dir->year,
(int) dir->hour,
(int) dir->minute,
(int) dir->second);
printf ("%lu ", dir->data_length_m);
Show_Flags (dir->flags);
putchar ('\n');
if (dir->ext_attr_length)
printf (" contains extended attribute record\n");
if (dir->gap_size)
printf (" is recorded in interleaved mode\n");
if (vol->protocol == PRO_ROCK)
Print_System_Use_Fields (vol->cd, dir,
((t_iso_vol_info *) vol->vol_info)->skip);
}
}
Close_Object (obj);
} else {
fprintf (stderr, "Object '%s': iso_errno = %d\n", p_name, iso_errno);
return;
}
if (p_recursive) {
if (obj = Open_Object (p_home, p_name)) {
unsigned long offset = 0;
while (Examine_Next (obj, &info, &offset)) {
if (info.directory_f) {
char *name = malloc (strlen (p_name) + info.name_length + 2);
int len;
if (!name) {
fprintf (stderr, "out of memory\n");
exit (1);
}
if (Is_Top_Level_Object (obj))
name[0] = 0;
else
sprintf (name, "%s/", p_name);
len = strlen (name) + info.name_length;
memcpy (name + strlen (name), info.name, info.name_length);
name[len] = 0;
printf ("\n%s:\n", name);
Show_Subdirectory (p_home, name, p_long_info, TRUE);
free (name);
}
}
Close_Object (obj);
} else {
fprintf (stderr, "Object '%s': iso_errno = %d\n", p_name, iso_errno);
}
}
}
void Show_Dir_Contents (CDROM *p_cd, char *p_name, int p_rock_ridge,
char *p_options)
{
VOLUME *vol;
CDROM_OBJ *home;
t_bool long_info = (strchr (p_options, 'l') != NULL);
t_bool recursive = (strchr (p_options, 'r') != NULL);
if (!(vol = Open_Volume (p_cd, p_rock_ridge))) {
fprintf (stderr, "cannot open volume; iso_errno = %d\n", iso_errno);
exit (1);
}
if (!(home = Open_Top_Level_Directory (vol))) {
fprintf (stderr, "cannot open top level directory;"
" iso_errno = %d\n", iso_errno);
Close_Volume (vol);
exit (1);
}
Show_Subdirectory (home, p_name, long_info, recursive);
Close_Object (home);
Close_Volume (vol);
}
void Send_Test_Unit_Ready (CDROM *p_cd)
{
printf ("result = %d\n", Test_Unit_Ready (p_cd));
}
void Show_Sectors (CDROM *p_cd, int p_sector, int p_cnt)
{
int i, j, s;
int off;
if (p_sector < 0)
return;
for (s=0; s<p_cnt; s++) {
if (!Read_Sector (p_cd, p_sector + s)) {
fprintf (stderr, "cannot read sector %d\n", p_sector + s);
exit (1);
}
for (off=0, i=0; i<128; i++) {
printf ("%02x:%03x0: ", s, i);
for (j=0; j<16; j++)
printf ("%02x ", (int) p_cd->buffer[off++]);
off -= 16;
putchar (' ');
for (j=0; j<16; j++) {
char c = p_cd->buffer[off++];
if (32<=c && c<=127)
putchar (c);
else
putchar ('.');
}
putchar ('\n');
}
}
}
int Get_Device_And_Unit (void)
{
int len;
char buf[10];
len = GetVar ((UBYTE *) "CDROM_DEVICE", (UBYTE *) g_the_device,
sizeof (g_the_device), 0);
if (len < 0)
return 0;
if (len >= sizeof (g_the_device)) {
fprintf (stderr, "CDROM_DEVICE too long\n");
exit (1);
}
g_the_device[len] = 0;
len = GetVar ((UBYTE *) "CDROM_UNIT", (UBYTE *) buf,
sizeof (buf), 0);
if (len < 0)
return 0;
if (len >= sizeof (buf)) {
fprintf (stderr, "CDROM_UNIT too long\n");
exit (1);
}
buf[len] = 0;
g_the_unit = atoi (buf);
if (GetVar ((UBYTE *) "CDROM_TRACKDISK", (UBYTE *) buf,
sizeof (buf), 0) > 0) {
fprintf (stderr, "using trackdisk\n");
g_trackdisk = 1;
}
if (GetVar ((UBYTE *) "CDROM_FASTMEM", (UBYTE *) buf,
sizeof (buf), 0) > 0) {
fprintf (stderr, "using fastmem\n");
g_fastmem = 1;
}
return 1;
}
void Select_Mode (CDROM *p_cd, int p_mode)
{
if (!Select_XA_Mode (p_cd, p_mode))
fprintf (stderr, "mode select command failed!\n");
}
void Show_Drive_Information (CDROM *p_cd)
{
t_inquiry_data data;
if (!Inquire (p_cd, &data)) {
fprintf (stderr, "cannot access CDROM drive\n");
return;
}
if ((data.peripheral_type & 0x1f) != 5) {
if ((data.peripheral_type & 0x1f) == 8)
printf ("Drive type: medium changer\n");
else
printf ("WARNING: this is not a CDROM drive!\n");
}
printf ("Vendor : ");
fwrite (data.vendor, sizeof (data.vendor), 1, stdout);
printf ("\nProduct : ");
fwrite (data.product, sizeof (data.product), 1, stdout);
printf ("\nRevision: ");
fwrite (data.revision, sizeof (data.revision), 1, stdout);
putchar ('\n');
}
void Show_Table_Of_Contents (CDROM *p_cd)
{
t_toc_header hdr;
t_toc_data *toc;
short i, len;
if (!(toc = Read_TOC (p_cd, &hdr))) {
fprintf (stderr, "cannot read table of contents\n");
return;
}
len = hdr.length / 8;
for (i=0; i<len; i++) {
if (toc[i].track_number == 0xAA)
printf ("Lead-out track at address %lu\n", toc[i].address);
else
printf ("Track %d: %s track, start address %lu\n",
(int) toc[i].track_number,
(toc[i].flags & 4) ? "data" : "audio",
toc[i].address);
}
}
void Show_Catalog_Node (CDROM *p_cd, t_ulong p_node)
{
t_mdb mdb;
t_node_descr *node;
t_hdr_node *hdr;
t_idx_record *idx;
t_leaf_record *leaf;
t_file_record *file;
t_dir_thread_record *thread;
char *cp;
int blk;
int i;
char buf[100];
blk = HFS_Find_Master_Directory_Block (p_cd, &mdb);
if (blk < 0) {
fprintf (stderr, "cannot find master directory block\n");
return;
}
node = HFS_Get_Node (p_cd, blk, &mdb, p_node);
if (!node) {
fprintf (stderr, "cannot find node %d\n", p_node);
return;
}
switch (node->Type) {
case 0:
printf ("Index node:\n");
printf ("Fwd=%lu Bwd=%lu Level=%d\n", node->FLink, node->BLink,
(int) node->NHeight);
idx = (t_idx_record *) ((char *) node + 0xe);
for (i=0; i<node->NRecs; i++, idx++) {
printf ("Parent ID = 0x%08lx, '", idx->parent_id);
fwrite (idx->name, idx->name_length, 1, stdout);
printf ("', pointer = %lu\n", idx->pointer);
}
break;
case 1:
printf ("Header node:\n");
printf ("Fwd=%lu Bwd=%lu Level=%d\n", node->FLink, node->BLink,
(int) node->NHeight);
hdr = (t_hdr_node *) node;
printf ("Depth of tree: %u\n", hdr->Depth);
printf ("Number of root node: %lu\n", hdr->Root);
printf ("Number of leaf records in tree: %lu\n", hdr->NRecs);
printf ("Number of first leaf node: %lu\n", hdr->FNode);
printf ("Number of last leaf node: %lu\n", hdr->LNode);
break;
case 2:
printf ("Map node:\n");
printf ("Fwd=%lu Bwd=%lu Level=%d\n", node->FLink, node->BLink,
(int) node->NHeight);
break;
case 0xff:
printf ("Leaf node:\n");
printf ("Fwd=%lu Bwd=%lu Level=%d\n", node->FLink, node->BLink,
(int) node->NHeight);
for (i=0; i<node->NRecs; i++) {
leaf = (t_leaf_record *) ((char *) node + ((short *) node)[255-i]);
cp = (char *) leaf + leaf->length + 1;
if ((leaf->length & 1) == 0)
cp++;
printf ("Parent ID = 0x%08lx, '", leaf->parent_id);
memcpy (buf, leaf->name, leaf->name_length);
Convert_Mac_Characters (buf, leaf->name_length);
fwrite (buf, leaf->name_length, 1, stdout);
printf ("' (");
switch (*cp) {
case 1:
printf ("directory 0x%08lx)\n", *(t_ulong *)(cp+6));
break;
case 2:
file = (t_file_record *) cp;
printf ("file 0x%08lx)\n\tdata length %lu, "
"data extents %u-%u/%u-%u/%u-%u\n",
file->FlNum,
file->LgLen,
file->ExtRec[0].StABN, file->ExtRec[0].NumABlks,
file->ExtRec[1].StABN, file->ExtRec[1].NumABlks,
file->ExtRec[2].StABN, file->ExtRec[2].NumABlks);
printf ("\tresource length %lu, resource extents %u-%u/%u-%u/%u-%u\n",
file->RLgLen,
file->RExtRec[0].StABN, file->RExtRec[0].NumABlks,
file->RExtRec[1].StABN, file->RExtRec[1].NumABlks,
file->RExtRec[2].StABN, file->RExtRec[2].NumABlks);
printf ("\tfirst alloc blk for data fork: %u\n", file->StBlk);
printf ("\tfirst alloc blk for resource fork: %u\n", file->RStBlk);
break;
case 3:
thread = (t_dir_thread_record *) cp;
printf ("directory thread 0x%08lu '", thread->ParID);
fwrite (thread->CName, thread->CNameLen, 1, stdout);
printf ("')\n");
break;
case 4:
printf ("file thread)\n");
break;
default:
printf ("unknown)\n");
break;
}
}
break;
default:
printf ("unknown node type\n");
return;
}
}
void Play_Audio (CDROM *p_cd, int p_stop)
{
int result;
if (p_stop)
result = Stop_Play_Audio (p_cd);
else
result = Start_Play_Audio (p_cd);
if (!result)
fprintf (stderr, "cannot perform operation\n");
}
void main (int argc, char *argv[])
{
atexit (Cleanup);
if (argc < 2)
Usage ();
if (!(UtilityBase = (struct Library *)
OpenLibrary ((UBYTE *) "utility.library", 37))) {
fprintf (stderr, "cannot open utility.library\n");
exit (1);
}
if (!Get_Device_And_Unit ()) {
fprintf (stderr,
"Please set the following environment variables:\n"
" CDROM_DEVICE name of SCSI device\n"
" CDROM_UNIT unit number of CDROM drive\n"
"e.g.\n"
" setenv CDROM_DEVICE scsi.device\n"
" setenv CDROM_UNIT 2\n"
"Set the variable CDROM_TRACKDISK to any value if you\n"
"want to use trackdisk calls instead of SCSI-direct calls\n"
"Set the variable CDROM_FASTMEM to any value if you\n"
"want to use fast memory for SCSI buffers (does not work\n"
"with all SCSI devices!)\n"
);
exit (1);
}
cd = Open_CDROM (g_the_device, g_the_unit, g_trackdisk, g_fastmem,
STD_BUFFERS, FILE_BUFFERS);
if (!cd) {
fprintf (stderr, "cannot open CDROM\n");
exit (1);
}
if (argv[1][0] == 'a' && argc == 2)
Show_Drive_Information (cd);
else if (argv[1][0] == 'b' && argc == 2)
Show_Table_Of_Contents (cd);
else if (argv[1][0] == 'c' && argc == 3)
Show_File_Contents (cd, argv[2]);
else if (argv[1][0] == 'd' && argc == 3)
Show_Dir_Contents (cd, argv[2], 0, argv[1]+1);
else if (argv[1][0] == 'e' && argc == 3)
Show_Dir_Contents (cd, argv[2], 1, argv[1]+1);
else if (argv[1][0] == 'f' && argc == 4)
Try_To_Open (cd, argv[2], argv[3]);
else if (argv[1][0] == 'i')
Check_Protocol (cd);
else if (argv[1][0] == 'j' && argc == 3)
Play_Audio (cd, atoi (argv[2]));
else if (argv[1][0] == 'm' && argc == 3)
Show_Catalog_Node (cd, atoi (argv[2]));
else if (argv[1][0] == 'o' && argc == 3)
Try_To_Open (cd, NULL, argv[2]);
else if (argv[1][0] == 'r')
Show_Root_Directory (cd);
else if (argv[1][0] == 's' && argc == 3)
Show_Sectors (cd, atoi (argv[2]), 1);
else if (argv[1][0] == 's' && argc == 4)
Show_Sectors (cd, atoi (argv[2]), atoi (argv[3]));
else if (argv[1][0] == 't' && argc == 3)
Try_To_Open (cd, (char *) -1, argv[2]);
else if (argv[1][0] == 'v')
Show_Primary_Volume_Descriptor (cd);
else if (argv[1][0] == 'x' && argc == 3)
Select_Mode (cd, atoi (argv[2]));
else if (argv[1][0] == 'y' && argc == 3)
Find_Block_Starting_With (cd, atoi (argv[2]));
else if (argv[1][0] == 'z')
Send_Test_Unit_Ready (cd);
else
Usage ();
exit (0);
}